┌────────────────────────────────┐ │ ░░░ ░░▓ ░▓▓ ███ ▓▓░ ▓░░ │ │ ~ M O O N ~ │ └────────────────────────────────┘
prd-web-01.centraldc.gr
LOCATION:
/usr/share/doc/perl-Test-Simple/examples
☗ ROOT
↻ REFRESH
✎ EDIT FILE
EDITING: indent.pl
#!/usr/bin/env perl use strict; use warnings; use lib '../lib'; use Test::Builder; =head1 NOTES Must have explicit finalize Must name nest Trailing summary test Pass chunk o'TAP No builder may have more than one child active What happens if you call ->finalize with open children =cut my $builder = Test::Builder->new; $builder->plan(tests => 7); for( 1 .. 3 ) { $builder->ok( $_, "We're on $_" ); $builder->note("We ran $_"); } { my $indented = $builder->child; $indented->plan('no_plan'); for( 1 .. 1+int(rand(5)) ) { $indented->ok( 1, "We're on $_" ); } $indented->finalize; } for( 7, 8, 9 ) { $builder->ok( $_, "We're on $_" ); }
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 indent.pl
PL
681 B
2024-04-25 14:05
EDIT
📄 subtest.t
T
348 B
2024-04-25 14:05
EDIT
📄 tools.pl
PL
3 KB
2024-04-25 14:05
EDIT
📄 tools.t
T
4.6 KB
2024-04-25 14:05
EDIT